22 August 1984 



Abstract 

Accent is a communication oriented operating system kerne! built at Carnegie-Mellon University to 
support the distributed personal computing project, SPICE, and the development of a fault-tolerant 
distributed sensor network (DSN). Accent is built around a single, powerful abstraction of 
communication between processes, with a all kernel functions, such as device access and virtual 
memory management accessible through messages and distributable throughout a network. In this 
manual, specific attention is given to the program interface to the Accent kernel. In addition to an 
implementation for the PERQ System Corporation PERQ and PERQ II computers, the interprocess 
communication facility described here is also available for VAX UNIX systems 4.1 bsd, 4.1c bsd and 
4.2 bsd. 

This research was sponsored by the Defense Advanced Research Projects Agency (DOD), ARPA 
Order 3597, monitored by the Air Force Avionics Laboratory under contract F3361 5-81 -K-1 539. The 
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Research Projects Agency or the U.S. Government. 
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Computer Science Department as part of its Spice Project. The system described in this manual is 
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This document is adapted from the paper by Richard F. Rashid, Accent Kernel Reference Manual. 
Carnegie-Mellon University, Pittsburgh, PA 1984. This document is not to be reproduced in any form 
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The information in this document is subject to change without notice and should not be construed as 
a commitment by PERQ Systems Corporation. The company assumes no responsibility for any errors 
that may appear in this document. PERQ Systems Corporation will make every effort to keep 
customers apprised of all documentation changes as quickly as possible. 
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1 . Introduction 

Accent is a communication-oriented operating system kernel. Conceptually, Accent provides: 

• multiple processes with a flexible process scheduling facility, 

• a large, paged virtual memory for each user process, 

• both synchronous and asynchronous message-based interprocess communication, 

• transparent network extensibility, and 

• a flexible capability- based approach to security and protection. 

As an operating system for the PERQ Systems Corporation PERQ computer, its features include: 

• support for multiple virtual machines, each capable of using its own micro-interpreter and 
each with up to 2* *32 bytes of paged virtual memory, 

• transparently pageable microcode overlays for special purpose operations and 

• protected access to rectangular areas of the PERQ's 1024x768 or 1024x1280 bitmap 
displays, including graphics rasterop capability and special string display functions. 

The basic unit of computation in Accent is the process. Processes consist of an address space 
(2**32 bytes of paged virtual memory), process state (including the state of any macrocode and 
microcode registers essential to execution) and access to one or more ports. 

An Accent port is a kernel managed and protected queue of messages. A port is both a simplex 
communication channel and the basic object reference mechanism in Accent. Ports are used to refer 
to objects and operations on objects are requested by sending messages to the ports which represent 
them. 

An Accent message is a discrete typed collection of data objects and may include access rights to 
ports. 

Message-passing is the sole means of communication both between processes and between the 
processes and the operating system kernel itself. The only primitive functions are those directly 
concerned with message communication. These primitive functions are implemented as traps into 
the Accent kernel. 

This manual describes both the basic message primitives provided by Accent and the functions 
made available by the Accent kernel through messages. It does not describe facilities provided by 
Accent processes (such as the Spice File System). 
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1 .1 . Manual Organization 

This technical content of this manual consists of four sections: 

1 . message primitives and support facilities, 

2. process creation and management facilities, 

3. virtual memory management functions and 

4. disk management and I/O facilities. 

In addition, an appendix is included which details the machine readable definition of the Accent 
kernel interface produced by MatchMaker, the Spice remote procedure call generator. 

1.2. Notational conventions 

For clarity, all message primitives and Accent kernel functions provided by messages are described 
as calls to a PASCAL library of kerne! interface procedures and functions. In addition to PASCAL, 
SubAda, C and SpiceLisp libraries are provided which have a similar form and make available the 
same set of functions. In practice, Accent kernel interfaces are described. in a high-level multiprocess 
communication language called MatchMaker. 

The rule of thumb for converting the PASCAL specification of this document to either a message 
exchange or kernel trap is as' follows: 

• In the case of message primitives, the arguments to the function are packaged into a 
record and a pointer to the record is passed on the PERQ expression stack to be picked 
up and interpreted by the operating system after a switch to kernel state occurs.. Return 
values slots are part of the passed record and return values are stored by the operating 
system before returning to the user process. 

• In the case of message calls, the in arguments to the function are composed into a 
message and sent to the port described in the first argument of the function. The 
arguments are placed in the message in the order that they appear, each described by a 
different descriptor (see below). Reply messages contain a sixteen bit integer result code 
and all out arguments and are sent to the port which was used as the local port field of 
the message as sent to the kernel. In the procedural specifications below, the reply port 
field is left out of the call for clarity. In the Accent Pascal interface, the reply port is 
allocated by an initialization routine and implicit in all calls. 

In addition, Pascal records are used as a descriptive language for the contents of the messages. In 
interpreting these records as bits of information laid out in memory, the following packing rules must 
be applied: 

• In records which are not labeled 'packed', all quantities which are 16 bits or less in size 
are packed in 16 bits. 

• In packed records several quantities may be packed into a 16 bit word if the sum of the bit 
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sizes is less than 16. 

• The bit size of a quantity is the minimum number of bits required to represent that 
quantity. Thus a boolean has bit size one. A character has bit size eight. An integer is 16 
bits. A long is 32 bits. 

• Information is packed into words from right to left (least significant to most significant bit). 
No quantity may stradle a 16 bit boundary with the exception of a long which is 32 bits. 

• Identifiers which are defined as part of enumerated types start with the value zero and 
increase by one. Thus type foo = (bar, baz) means that bar will have the value zero 
and baz the value one. 
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2. Accent message primitives 

2.1. Basic terms 
Accent message primitives manipulate two distinct objects: 

1 . ports • protected kernel objects to which messages may be sent and logically queued 
until reception, and 

2. messages - ordered collections of typed data consisting of a fixed size message header 
and a variable size message body. 

Ports have finite queues and processes may exercise several options for handling the case of 
message transmission to a full queue (see Send below). 

Processes refer to ports through the use of 32-bit integer values which represent access rights to 
send-to, receive from or own ports. A process can hold any combination of these rights. When a 
process creates a port it holds all three. As long as a process retains access to a port it may use the 
same integer value to refer to it. The integer value representing the same port may be different for 
different processes. A process can only refer to ports to which it has been given access. 

The three different kinds of port access rights are defined as follows: 

Send access to a port implies that a process can send a message to that port. Should 
the port be destroyed during the time a process has send access, a 
message will be sent to that process by the kernel indicating that the port 
has disappeared as well as the cause of the disappearance (e.g. explicit 
destruction, process death, network failure, etc.). 

Receive access to a port allows a process to receive a message from that port. Only one 
process may have receive access for a given port at a time. 

Ownership of a port implies that, should the process with receive access relinquish 

the port either through explicit deallocation or process death, the receive 
rights to the port will be sent to the port's owner. Likewise, should 
ownership be relinquished, the ownership rights are sent by the kernel in a 
message to the receiving process. 

Port access rights can be passed in messages. They are interpreted by the kernel and transferred 
from the sender to the kernel upon message transmission and to the receiver upon message receipt. 

At the time of creation, each process normally has access to at least two ports: 

1 . a kernel port for which the new process has send access and which can be used to send 
messages to the system kernel, and 
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2. a data port for which the new process has receive access and ownership and for which 
the kernel has send access. This port is always used for receiving replies to kernel- 
directed requests. In addition, the data port is the pert normally used by the kernel to 
send emergency messages about port destruction and other error conditions. 

A message consists of a fixed part, describable as a PASCAL record and a variable size part 
following that fixed part. The PASCAL record describing the fixed size message head is: 
type 



Msg 



record 



SimpleMsg 


boolean; 


MsgSize 


long; 


MsgType 


long; 


Local Port 


: Port; 


RemotePort 


; Port; 


ID 


: long 



True if message uses no pointers } 
and transmits no port rights } 
Number of contiguous bytes in the } 
message. } 

NORMALMSG or EMERGENCYMSG } 
For send: optional port of sender} 
For receive: port msg received on } 
For send: port to send message to } 
For receive: optional port of sender} 
Arbitrary value - by convention used} 
to identify kind of message. } 



{ MsgSize - ByteSize(Msg) bytes of message } 
{ data follow, see telow. } 
end; 
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SimpleMsg 
MsgSize (lsw) 
MsgSize (msw) 
MsgType (lsw) 
MsgType (msw) 
LocalPort (lsw) 
Local Port (msw) 
RemotePort (lsw) 
RemotePort (msw) 
ID (lsw) 
ID (msw) 



word 0 
word 1 
word 2 
word 3 
word 4 
word S 
word 6 
word 7 
word 8 
word 9 
word 10 



The variable data part of a message consists of an array of descriptors for typed objects-. Each typed 
object descriptor is of the form: 
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TypeType 



TypeName 



| Type§1zeInB1ts | 



NumElts 



(optional) 
(optional) 



Pointer to Data 
(32 bits) 
or 

Inline Data 
(TypeSlzelnBits • NumElts bits) 



The record describing the TypeType field is: 



type 



TypeType ■ 

packed record 
TypeName 
TypeSlzelnBits 
NumObjects 
InLine 
LongForm 
Deallocate 

end; 



B1t8; 

B1t8; 

Bitl2; 

boolean; 

boolean; 

boolean; 



31 30 29 28 27 16 16 8 7 

I I I I I I I 

NUMOBJECTS TYPESIZEINBITS TYPENAME 



u 


D 


L 


I 


N 


E 


0 


N 


U 


A 


N 


L 


S 


L 


G 


I 


E 


L 


F 


N 


D 


0 


0 


E 




C 


R 






A 


M 






T 








E 







The TypeName, TypeSizelnBits, and NumElts fields exist only if the LongForm bit of the DataType 
field is set. This provides potentially 16 bits for both the TypeName and the TypeSizelnBits and allows 
a single object to be an array of up to 2**32-1 primitive data elements. If LongForm is false, then the 
number of elements is defined by the NumObjects field of DataType. 

System defined data types (i.e., values which may be included in the TypeName field of a 
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DataDescriptor) include: 

• TYPEUNSTRUCTURED = 0; 

• TYPEBIT = 0; 

• TYPEBOOLEAN = 0; 

• TYPEINT16 = 1; 

• TYPEINT32 = 2; 

• TYPEPTOWNERSHIP = 3; 

• TYPEPTRECEIVE = 4; 

• TYPEPTALL = 5; 

• TYPEPT = 6; 

• TYPECHAR = 8; 

• TYPEINT8 = 9; 

• TYPEBYTE = 9; 

• TYPEREAL = 10; 

• TYPEPS1 AT = 11; 

• TYPESTRING = 12; 

• TYPESEGID = 13; 

• TYPEPAGE = 14; 

The Deallocate bit applies to port rights and data blocks pointed to by a descriptor. If the Deallocate 
bit is set and a port is referred to, that port is deallocated from the name space of the current process 
when the message is sent. If the Deallocate bit is set and a pointer is referred to, all full pages of data 
pointed to by the pointer will be removed from the address space of the sending process when the 
message is sent. 

The following is an example of the creation of a message in PASCAL. The message contains both 
pointer and inline data blocks as well as a port and a long integer. Note that in practice users do not 
normally construct messages by hand, but use MatchMaker to define type-checked message 
interfaces between processes. 

const 

MYMESSAGEID - 100; 

type 

ptrBlock ■ <Block; 

Block ■ array [0..255] of Integer; 

MyMessage ■ 
record 
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Header 


Msg; 


APortType 


TypeType; 


APort 


Port; 


ALongType 


TypeType; 


ALong 


long; 


BlockPtrType 


TypeType; 


BlockPtr 


ptrBlock; 


InlineBlockType 


TypeType; 


InlineBlockTypeName 


Integer; 


Inl 1neB1ockTypeS1ze 


Integer; 


Inl ineBlockNumOb jects 


Long; 


InlineBlock 


Block; 



end; 



var 
message 
MyPort 
HisPort 
MyOtherPort 
MyLong 



PtrToSomeBlock: ptrBlock; 



MyMessage; 

Port; 

Port; 

Port; 

long; 



begin 

{ Get information to send from somewhere. } 

message. Header .Simp! eMsg 
message. Header. MsgSlze. 
message. Header. MsgType 
mess age. Header. Local Port 
message . Header . RemotePort 
message . Header . ID 

message. APortType., TypeName 
message. APortType. NumObjects 
message. APortType. InLine 
message. APortType. LongForm 
message. APortType. Deal locate 
message. APortType. TypeSizelnBits 
message. APort 

message. ALongType. TypeName 
message. ALongType. NumObjects 
message. ALongType. InLine 
message. ALongType. LongForm 
message .ALongType . Deal 1 ocate 
message. ALongType. TypeSizelnBits 
message. ALong 

message . Bl ockPtrType . TypeName 
message . Bl ockPtrType . NumObjects 
message. BlockPtrType. InLine 
message . Bl ockPtrType . LongForm 
message. BlockPtrType. Deal locate 
message. BlockPtrType. TypeSizelnBits 
message. BlockPtr 



false; 

WordSize(message)*2; 

NORMALMSG ; 

MyPort; 

HisPort; 

MYMESSAGEID; 

TYPEPT; 
l; 

true; 
false; 
false; 
32; 

MyOtherPort; 

TYPELONG; 
l; 

true; 
false; 
false; 
32; 

MyLonglnteger; 

TYPEINT16; 

256; 

false; 

false; 

false; 

16; 

PtrToSomeBlock; 



{ Now an example using the long form of TypeType } 



message. Inl IneBlockType. InLine 
message. Inl IneBlockType. LongForm 
message. Inl IneBlockType. Deal locate 
message. Inl IneBlockTypeName 
message. Inl 1neBlockTypeS1ze 
message. Inl IneBlockNumObjects 
message. Inl ineBlock 



true; 

true; 

false; 

TYPEINT16; 

16; 

256; 

PtrToSomeBlock*; 
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{ Send the message } 
end; 

In addition to the message record definitions, the following constant and type definitions are used 
by the various message interface routines: 

const 



MAXBACKLOG 



WAIT 


■ 0; 


DONTWAIT 


- 1; 


REPLY 


■ 2; 


PREVIEW 


- 0; 


RECEIVEIT 


- 1; 


RECEIVEWAIT 


- 2; 


DEFAULTPTS 


- 0; 


ALLPTS 


■ l; 


LOCALPT 


- 2; 


MAXPORTS 


- 255; 



63; 



{ Message types: 
{} 

NORMALMSG - 0; 

EMERGENCYMSG - 1; 



no longer a maximum number of ports. } 
{ Installation dependent } 



type 



{} 

{ Kernel generated message Ids: 
{} 



M PORTDELETED 


- #100 


+ 


l; 


M MSGACCEPTED 


- #100 


+ 


2; 


M_OWNERSHIPRIGHTS 


- #100 


+ 


3; 


M RECEIVERIGHTS 


- #100 


+ 


4; 


M_GENERALKERNELREPLY . 


- #100 


+ 


6; 


M KERNELMSGERROR 


- #100 


+ 


7; 


M PARENTFORKREPLY 


- #100 


+ 


#10; 


M_CHILDFORKREPLY 


- #100 


+ 


#11; 


MJ3EBUGMSG 


- #100 


+ 


#12; 



Port 

Milliseconds 

SendOption 

ReceiveOption 

PortOption 

PortBltArray 

PortArray 

PtrPortArray 

LPortArray 

PtrLPortArray 

BacklogValue 



long; 
long; 

WAIT.. DONTWAIT; 
PREVIEW. .RECEIVEWAIT; 
DEFAULTS. .LOCALPT; 

packed array [0. .MAXPORTS-1] of boolean; 
array [0. .MAXPORTS-1] of Port; 
tPortArray; 

array [stretch(O) . .stretch(#77777)] of Port; 

tLPortArray; 

0.. MAXBACKLOG; 



In addition the possible return values for all of the routines are listed below, and in the file 
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AccentType.pas. For message primitives, these values are returned in the kernel trap argument 
block. For kernel messages these values are returned as the first element in the data portion of the 
message as a 16 bit integer. The user sees both these types of return values as general return values, 
const 



AccErr 


- 100; 


Dummy 


- AccErr+0; 


Success 


■ AccErr+1; 


TlmeOut 


■ AccErr+2; 


PortFull 


■ AccErr+3; 


WillReply 


■ AccErr+4; 


TooManyReplles 


- AccErr+6; 


MemFault 


■ AccErr+6; 


NotAPort 


■ AccErr+7; 


BadRlghts 


■ AccErr+8; 


NoMorePorts 


■ AccErr+9; 


IllegalBacklog 


■ AccErr+10; 


NetFall 


- AccErr+11; 


Intr 


■ AccErr+12; 


Other 


■ AccErr+13; 


NotPortRecelver 


■ AccErr+14; 


UnrecognizedMsgType 


■ AccErr+16; 


NotEnougttRoom 


■ AccErr+16; 


NotAnlPCCall 


■ AccErr+17; 


BadMsgType 


- AccErr+18; 


BadlPCName 


■ AccErr+19; 


MsgTooBig 


■ AccErr+20; 


NotYourChlld 


■ AccErr+21; 


BadMsg 


■ AccErr+22; 


OutOf IPCSpace 


- AccErr+23; 


Failure 


■ AccErr+24; * 


MapFull 


■ AccErr+25; 


WriteFault 


■ AccErr+26; 


BadKernelMsg 


■ AccErr+27; 


NotCurrentProcess 


■ AccErr+28; . 


CantFork 


- AccErr+29; 


BadPr1or1ty 


- AccErr+30; 


BadTrap 


■ AccErr+31; 


DiskErr 


■ AccErr+32; 


BadSegType 


■ AccErr+33; 


BadSegment 


*• AccErr+34; 


IsParent 


- AccErr+36; 


IsChlld 


■ AccErr+36; 


NoAvallablePages 


■ AccErr+37; 


FIveDeep 


■ AccErr+38; 


BadVPTable 


■ AccErr+39; 


VPExcluslonFallure 


■ AccErr+40; 


MIcroFailure 


■ AccErr+41; 


EStackTooDeep 


■ AccErr+42; 


Msglnterrupt 


■ AccErr+43; 


UncaughtExceptlon 


■ AccErr+44; 


BreakPointTrap 


■ AccErr+45; 


ASTInconsistency 


- AccErr+46; 


InactiveSegment 


- AccErr+47; 


SegmentAl readyExits 


- AccErr+48; 


OutOf ImagSegments 


■ AccErr+49; 


NotASystemAddress 


■ AccErr+50; 


NotAUserAddress 


■ AccErr+51; 


BadCreateMask 


■ AccErr+62i 


BadRectangle 


■ AccErr+53; 


OutOf RectangleBounds 


■ AccErr+54; 


IllegalScanWIdth 


- AccErr+55; 


CoveredRectangel 


• AccErr+66; 



BusyRectangle 

NotAFont 

PartitionFull 



■ AccErr+57; 

■ AccErr+58; 
• AccErr+59; 
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2.2. Accent primitives 
Send 

function Send 
( 

var MsgHdr : Msg; 
Max Wait : long; 
Option : SendOption 

) 

: GeneralReturn; 

Synopsis 

Send, transmits a message from the current process to the RemotePort specified in the message 
header. 

Arguments 

MsgHdr The header portion of the message to be sent. 

MaxWait The maximum time in milliseconds to wait should the destination port be 

full. A wait time of zero implies wait forever. Currently theie is an 
implementation restriction of 32000 milliseconds as a maximum wait time. 

Option A constant specifying whether the send operation should WAIT, 

DONTWAIT or REPLY if the destination port is full at the time of the send. 
The various options are defined below: 

WAIT should be used when the sending process 

wishes to be suspended for MaxWait 
milliseconds if the queue is full. If by that time 
the port is still full, the call returns without 
having sent the message. 



DONTWAIT should be used if the sending process does 

not wish to wait for any length of time in the 
case of a full destination port. 

REPLY allows the sender to give exactly one message 

to the operating system without being 
suspended should the destination port be full. 
When that message can in fact be posted to 
the receiving port's queue, a message is sent 
to the data port of the sending process 
notifying it that another message can be sent. 
A second message, sent to a full port before 
this notification arrives, results in an error. 
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rns 

Success 

Timeout 



The message has been queued for the RemotePort. 

The message was not sent since the destination port was still full after 
Max Wait milliseconds. - 



Failure 



WillReply 



The message was not sent because the destination port was full and 
DONTWAIT was specified. 

The destination port was full but the REPLY option was specified. An 
emergency message will be sent when the message can be posted. 



TooManyReplies The REPLY option was specified but a reply request is already 
outstanding for this process and destination port. 



MemFauit 
NotAPort 



The message pointed to data not in the address space of the sender. 

The message refers to a port number which is not available to the current 
process. 



BadRights 



The message contains a reference to port access rights not possessed by 
the current process. 
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SetPortsWaiting 

function SetPortsWaiting 
( 

var Ports : PortBitArray 
) 

: GeneralReturn; 

Synopsis 

NB: SetPortsWaiting is still in the system but has been made obsolete by the removal of 
limitations on the maximum number of ports accessible to a process. This call will 
succeed only if the total number of ports in the current Accent system is less than the old 
per process maximum of 255. The call LockPorts replaces SetPortsWaiting. 

SetPortsWaiting passes a boolean array to the operating system kernel specifying the ports on 
which the current process wishes to receive messages. Each port is represented as a bit in the array 
and a value of true implies that, should a Receive call be made, a message can be accepted from that 
port. A value of false implies that even if a message is waiting on that port at the time of the Receive 
call, it should not be received. 

Arguments 

Ports A var bit array specifying the ports to be waited on during a Receive. On 

successful return it will contain the value of the bit array. 

Returns 

Success The call performed its function. 

MemFault The port array points to memory which is not in the address space of the 

current process. 
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Receive 

function Receive 
( 

var MsgHdr : Msg; { inout parameter } 
MaxWait : long; 
PortOpt : PortOption; 
Option : ReceiveOption 

) 

: GeneralReturn; 

Synopsis 

Receive retrieves the next message from a port queue on which the current process is waiting (see 
SetPortsWaiting).- 



Arguments 

MsgHdr 

MaxWait 



PortOpt 



The header part of a message data structure into which a message can 
be received. 

The maximum time in milliseconds to wait for a message before giving up. 
A wait time of zero implies an infinite wait. A wait time of -1 implies no 
wait. Currently there is an implementation restriction on the PERQ of 
32000 milliseconds maximum wait time. 

A constant specifying what ports the receive should be done on. 

ALLPTS look for a message on all the ports to which 

this process has Receive access. 

DEFAULT PTS look for a message on all the ports to which 
this process has Receive access, exceot for 
those ports which have been locked by 
LockPorts. 



LOCALPT 



receive a message only on the port specified 
by MsgHdr.LocalPort. 



Option 



A constant specifying whether the receive operation should be PREVIEW, 
RECEtVEWAIT or RECEIVEIT. 



PREVIEW 



allows the header of a message to be looked 
at before receiving the data. Once previewed, 
a message has in fact been received, but the 
operating system will hold the data until a 
subsequent Receive with the RECEIVEIT 
option is performed. No other messages can 
be received until the previewed message has 
been received. 
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RECEIVED AIT simply waits until a message can be received. 

It does not receive the message or modify the 
port queues in any way. 

RECEIVEIT is the option actually used for receiving both 

the header and data part of a message. Once 
received, the message is removed from its port 
queue and all port capabilities contained in the 
message are passed to the receiving process. 

Returns 

Success The message has been received. 

Timeout The message was not received after MaxWait milliseconds. 



MemFault 



The message pointed to a data area inaccessible to the receiver. 
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EReceive 

function EReceive 
( 

var xxmsg -.Msg; 
Max Wait -.long; 
PortOpt :PortOption; 
Option :ReceiveOption 

) 

: GeneralReturn; 

Synopsis 

EReceive is a version of Receive that is used by the operating system. It is not-to be used by other 
clients of the kernel. 

Arguments 

xxmsg The header part of a message data structure into which a message can 

be received. 

MaxWait The maximum time (in milliseconds) to wait for a message before giving 

up. A wait time of zero implies an infinite wait. A wait time of -1 implies no 
wait. 



PortOpt A constant specifying what ports the receive should be done on. 

PEFAULTPTS The ports that have been previously set by 
SetPortsWaiting should be used. 

ALLPTS Look for a message on all the ports to which 

this process has EReceive access. 



LOCALPT Receive a message only on the port specified 

by MsgHdr.Local.Port. 

Option A constant specifying whether the receive operation should be PREVIEW, 

RECEIVEWAIT, or RECEIVER". 

PREVIEW Allows the header of a message to be looked 

at before receiving the data. Once previewed, 
a message has in fact been received, but the 
operating system will hold the data until a 
subsequent EReceive with the RECEIVEIT 
option is performed. No other message can be 
received until the previewed message has 
been received. 



RECEIVEWAIT 



Simply waits until a message can be received. 
It does not receive the message or modify the 
port queues in any way. 
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RECEIVEIT This is the option actually used for receiving 

both the header and data part of a message. 
Once received, the message is removed from 
its port queue and all port capabilities 
contained in the message are passed to the 
receiving process. 

Returns 

Success The message has been received. 

Timeout The message was not received after MaxWait milliseconds. 

• MemFault- The message pointed to a data area inaccessible to the receiver. 
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PortsWithMessages 

function PortsWithMessages 
( 

MsgType ; long; 
var Ports : PortBitArray 
) 

: GeneralReturn; 

Synopsis 

NB: PortsWithMessages is still in the system but has been made obsolete by the removal 
of limitations on the maximum number of ports accessible to a process. This call will 
succeed only if the total number of ports in the current Accent system is less than the old 
per process maximum of 255. The call MessagesWaiting replaces PortsWithMessages. 

PortsWithMessages returns a boolean array in the var parameter Ports which has a true value for 
every port containing at least one message of type MsgType. 

Arguments 

MsgType The type of message the current process is interested in (currently it must 

be either EMERGENCYMSG or NORMALMSG). 

Ports A boolean array used to return the description of the waiting ports. 

Returns 

Success The call returns the array. 



MemFault 



Illegal data area specified fcr returned data. 



20 

Lock Ports 

function LockPorts 
( 

LockOrilnlock : boolean; 
Ports : PtrLPortArray; 
PortsCount : long 

) 

: GeneralReturn; 

Synopsis 

LockPorts either locks (if LockOrilnlock is true) or unlocks the points pointed to by the array Ports. 
Messages may not be received from a locked port and no interrupts will occur if messages arrive at a 
locked port. A port may only be locked by the process with receive access. 

Arguments 

LockOrilnlock True if we are locking, false otherwise. 

Ports A port array used to specify the ports to be locked. 

PortsCount The number of ports to be locked. 
Returns 

Success . Ports are locked or unlocked. 

MemFault Illegal data area specified for returned data. 

Failure Illegal request to lock or unlock a port. 
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MessagesWaiting 

function MessagesWaiting 
( 

MsgType : long; 
var Ports : PtrLPortArray; 
var PortsCount : long { inout parameter } 
) 

: GeneralReturn; 

Synopsis 

MessagesWaiVng returns an array of ports on which there is a message waiting whose type matches 
MsgType. 



Arguments 

MsgType 

Ports 

PortLCount 

Returns 

Success 



Message type field of messages of interest. 

A port array used to return ports with messages waiting. 

The maximum number of ports to return. On return, the actual number of 
ports returned. 



Ports are returned. 

NotEnoughRoom Number of ports is greater than the maximum given by PortsCount. 
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MoveWords 



function MoveWords 
( 

SrcAddr : VirtualAddress; 
var DstAddr : VirtualAddress; { inout } 
Num Words : long; 
Delete : boolean; 
Create : boolean; 
Mask : long; 
DontShare : boolean 
) : GeneralReturn; 



Synopsis 

MoveWords moves data from one place in the current processes' address space to another. It 
differs from a macroarchitecture move instruction in that it can be used to remap areas of memory in 
addition to moving data in the conventional sense. 



Arguments 

SrcAddr 



The source address. 



DstAddr 



The destination address. If Create (see below) is true then this argument 
is ignored on input and supplied by the system on output. 



NumWords The number of words to move. 

Delete If true, the source words will be deleted from the current process' address 

space. Memory is only deleted in full pages. The pages deleted start with 
the page containing SrcAddr and end with the page containing the 
address SrcAddr + NumWords - 1. 



Create 



If true, new space will be allocated for the copy and a pointer returned in 
DstAddr. 



Mask 



A 32 bit mask which, if Create is true, determines where in memory 
allocated space can be used (see ValidateMemory below). 



DontShare If true, implies that data will be copied copy-on-write. If false it implies 

that the data references in the destination area will be synonymous with 
data references in the source area. It is an error if DontShare is false and 
the source and destination address have different word offsets in a page. 



Returns 

Success 



The copy was performed. 



MemFault 



The arguments are illegal. 
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SoftEnable 

function SoftEnable 
( 

NormOrEmerg : boolean; 
EnOrDis : boolean 
): GeneralReturn; 

Synopsis 

SoftEnable resets the enabling of software interrupts. When a software interrupt occurs software 
interrupts are disabled by the system. This routine is intended to be called by software interrupt 
handlers just before they exit in order to allow the handling of futher software interrupts. 

Arguments 

NormOrEmerg True if we are enabling software interrupts on normal messages, false if 
we are enabling software interrupts on emergency messages. 

EnOrDis True if we are enabling interrupts. False if we are disabling interrupts. 

Returns 

Success Success is the only possible return. 
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2.3. IPC related non-primitive functions 
AllocatePort 

function AllocatePort 
( 

KernelPort : Port; 
var LocalPort ; Port; { out } 
Backlog : BacklogValue 

) 

: GeneralReturn; 

Synopsis 

AllocatePort requests that a new port be allocated with an initial maximum queue size (backlog) of 
Backlog. If no port can be returned, LocalPort is left with a value of NULLPORT ( = 0). 



Arguments 

KernelPort 

LocalPort 
Backlog 

Returns 

Success 



The kernel port of a process. The port is created in the calling process' 
port space, regardless of which kernel port is used. 

A var parameter into which the allocated port is returned. 

The maximum queue length (number of messages) for the newly 
allocated port. A value of zero will set the backlog to 
DEFAULTBACKLOG. The maximum backlog value is MAXBACKLOG. 



A port has been allocated. 
NoMorePorts No more port slots available for this process. 



MemFault Illegal address specified. 
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SetBacklog 

function SetBacklog 
( 

KernelPort : Port; 
LocalPort : Port; 
Backlog : BacklogValue 

) 

: GeneralReturn; 



Synopsis 

SetBacklog requests that the maximum queue length for the specified port be changed to Backlog. 
Arguments 

KernelPort The kernel port of the process whose port space the current process 

wishes to alter. 

LocalPort The port queue to be changed. 

Backlog The new backlog. Should the new backlog be less than the current queue 

length, no messages are released or destroyed, but future send 
requests will respect the new backlog. A value of zero will set the backlog 
to DEFAULTBACKLOG. The maximum backlog value is MAXBACKLOG. 



Returns 

Success The backlog has been changed. 



IHegalBacklog The backlog is either too small or too large. 

The backlog of a port in another process' port space can be changed, if you have access to that 
process' kernel port. 
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DeallocatePort 



function DeallocatePort 
( 

KernelPort : Port; 
LocalPort : Port; 
Reason ; long 

) 

: GeneralReturn; 



Synopsis 

DeallocatePort requests that the current process' access to a port be released. If the current 
process is both the receiver and owner for the port, then the port is destroyed and all other processes 
with send access are notified both of the port's destruction and the reason for that destruction. 



Arguments 

KernelPort 

LocalPort 
Reason 



The kernel port of the process. 
The port to be deallocated. 

An arbitrary 32 bit number which will be returned to those processes 
which have access to the port should it be destroyed by this call. There 
are several system defined reasons for port death: 
EXPLICITDEALLOC ATION , PROCESSDEATH, and NETWORKTROUBLE. 



Returns 

Success 



The port has been deallocated. 



NotAPort 



The port is not allocated to this process. 
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Indexlnterpose 

function Indexlnterpose 
( 

ServPort : Port; 

MyPort : Port; 

Hislndex -.long; 
var HisPort : Port 
) 

: GeneralReturn; 

NOTE 

This function has been made obsolete. It will always return FAILURE. 
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Portlnterpose 

function Portlnterpose 
( 

ServPort : Port; 

MyPort : Port; 

HisPort : Port; 
var MyNewPort ; Port 
) 

: GeneralReturn; 

NOTE 

This function has been made obsolete. It will always return FAILURE. 
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GetPortlndexStatus 

function GetPortlndexStatus 
( 

ServPort : Port; 

Port Index : Long; 
var BackLog ; Integer; 
var NWaitingMsgs : Integer; 
var EWaitingMsgs : Integer; 
var PortRight ; Port; 
var PortType : Integer 
) 

: GeneralReturn; 

NOTE 

GetPortlndexStatus provides information about a port given its index into the kernel port table. It is 
intended to be used by system implementers and not by normal clients of the kernel. 
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GetPortStatus 

function GetPortStatus 
( 

ServPort : Port; 

PortRight : Port; 
var Backlog : Integer; 
var NWaitingMsgs : Integer; 
var EWaitingMsgs ; Integer; 
var Portlndex : Long; 
var PortType : Integer 
) 

: GeneralReturn; 

NOTE 

GetPortStatus provides information about a port given its index into the kernel port table. It is 
intended to be used by system implementors and not by normal clients of the kernel. 
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ExtractAIIRights 

function ExtractAIIRights 
( 

ServPort : Port; 

Portlndex : Long; 
var PortRight : Port; 
var PortType : integer 
) 

: Genera/Return; 

NOTE 

This call is not currently implemented. 



InsertAIIRights 

function InsertAIIRights 
( 

ServPort : Port; 

Port Index : Long; 
var Port Right : Port; 
var PortType : Integer 
) 

: GeneralReturn; 

NOTE 

This call is not currently implemented. 
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3. Accent process primitives 



3.1 . Basic terms 

Accent supports a potentially large number of processes, each with independent paged address 
spaces. Process scheduling is round-robin within a priority level and Accent supports 16 priority 
levels t each with an installation dependent time quota. Once a' process exhausts its time quota at a 
given priority level, its priority is decreased, allowing a form of aging. Process priorities are reinstated 
at their default level following a message send or receive. Processes may be created either by forking 
or by explicit process creation. Processes may only fork themselves, but may terminate either 
themselves or others which they have created. 



The following type definitions are used by the various message interface routines: 



const 

READONLY - 0; 

READWRITE -.1; 

MAX P ROCS - 63; {Installation dependent} 
NUMPRIORITIES ■ 16; {Installation dependent} 
NUMSLEEPQS - 32; {Installation dependent} 
NUHQUEUES - NUMSLEEPQS + NUMPRIORITIES + 5; 

type 

Port - long; 

VirtualAddress- long; 
Microseconds ■ long; 
PriorlD ■ 0. .NUMPRIORITIES-1; 

ProcState ■ (User, Supervisor); 
.QID - 0..NUMQUEUES; 

MemProtection - READONLY . . READWRITE ; 
PStatus ■ record 



State 


ProcState; 


Priority 


PriorlD; 


MsgPending 


boolean; 


EMsgPending 


boolean; 


MsgEnable 


boolean; 


EMsgEnable 


boolean; 


LimitSet 


boolean; 


SVStklnCore 


boolean; 


QueuelD 


QID; 


SleepID 


ptrlnteger; 


RunTime 


long; 


L1m1tT1me 


long; 



end; 
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3.2. Process management routines 
Fork 

function Fork 
( 

KernelPort : Port; 
var HisKernelPort ; Port; { out parameter } 
var HisDataPort : Port; { out parameter } 

Ports : PtrPortArray; 

PortsCount ; long 

) 

: GeneraiReturn; 

Synopsis 

Fork creates a running clone of the process whose kernel port is used for call. The ports owned by 
the child of the current process created by the Fork are provided by the father. A process may only 
Fork itself. HisKernelPort and HisDataPort are created by the kernel and give the parent a handle on 
the child. 



Arguments 

KernelPort 

HisKernelPort 

HisDataPort 

Ports 

PortsCount 

Returns 

IsParent 

IsChild 



The kernel port of the process to be copied. 

On return, the kernel port of the child. 

On return, the data port of the child. 

A pointer to an array of port capabilities to send to the child. 

The number of ports to be sent to the newly created process. 

The current process is the father. 
The current process is the son. 



TooManyProcesses 



The system can no longer allocate processes. 



NotCurrentProcess Kernel port does not belong to the current process. 

NotAPort A port mentioned in the message is not accessible to the father. 
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CreateProcess 



function CreateProcess 
( 

KernelPort ; Port; 
var HisKernelPort : Port; { out parameter } 
var HisDataPort ; Port { out parameter } 
) 

: GeneralReturn; 



CreateProcess creates a new process which has no state. This call can be used to create a orocess 
which may then be loaded with memory and state through the use of the WriteProcessMemory and 
Deposit (see below). 

Arguments 



HisKernelPort The kernel port of the child. 



Synopsis 



KernelPort 



The kernel port of the process to be copied. 



HisDataPort 



The data port of the child. 



Returns 



Success 



The call succeeded. 



Failure The request could not be performed. 

NotCurrentProcess Kernel port does not belong to the current process. 
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Terminate 

function Terminate 
( 

KernelPort : Port; 
Reason : long; 

) 

: GeneralReturn; 

Synopsis 

Terminate destroys the process associated with KernelPort. If that process is not the current 
process, the call returns. 

Arguments 

KernelPort The kernel port of the process to be killed. 

Reason An arbitrary 32 bit number which will be returned to those processes 

which have access to ports affected by this call. 

NoReturn The process has killed itself. 



Returns 

Success 



The process has been killed. 
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SetDebugPort 

function SetDebugPort 
( 

KernelPort ; Port; 
DebugPort : Port 

) 

: GeneralReturn; 

Synopsis 

Associate a debugger (defined by DebugPort) with a process (identified by KernelPort, its kernel 
port) in such a way that if that process should fail, the process will be suspended in its failed state and 
a message will be sent DebugPort. The message sent by the kernel will be an Emergency Message 
and will contain as its data a port {KernelPort), a 32-bit integer (the reason for the error, if any, 
otherwise 0), and an error code as a 32 bit integer. 

Arguments 

KernelPort Kernel port of process to be debugged. 

DebugPori Port to which error messages should be sent when the process fails. 

Returns 

Success DebugPort has been associated with the process. 

Failure . KernelPort was not a kernel port for an active process. 
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Status 

function Status 
( 

KernelPort ; Port; 
var Status : PStatus 
) 

: GeneralReturn; 

Synopsis 

Status returns the current process status of the process associated with KernelPort. 



Arguments 

KernelPort 

Status 



The kernel port of the process to be queried. 

A var parameter used to return the process' state. See the description of 
PStatus above for details. 



Returns 

Success 



The data has been retrieved. 



MemFault 



Illegal address reference. 



39 



SetPriority 

function SetPriority 
( 

KernelPort -.Port; 
Priority : PriorlD 

) 

: GeneralReturn; 

Synopsis 

SetPriority is used to change the priority of the process associated with KernelPort. The highest 
priority is currer ily 1 5, the lowest is 0. 

Argurnents 

KernelPort The kernel port of the process whose priority is to be changed. 

Priority The new priority. 

Returns 

Success Priority changed. 

SadPriority Illegal priority value. A process rnay only decrease its own priority. 
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SetLimit 

function SetLimit 
( 

KernelPort : Port; 
ReplyPort : Port; 
Limit : long 

) 

: GeneralReturn; 

Synopsis 

SetLimit sets a limit on the computation time available to the process associated with KernelPort. 
When the time limit has been exceeded, a message will be sent to ReplyPort indicating that the 
process has used its allotted computational resources. 

Arguments 

KernelPort The kernel port of the process to be limited. 

ReplyPort A port to use both for the initial acknowledgement of the success of the 

call and for the message indicating that the limit was exceeded. 

Limit The time limit in microseconds. 



Returns 

Success 



Limit set. 
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Suspend 

function Suspend 
( 

KernelPort ; Port; 

) 

: GeneralReturn; 

Synopsis 

Suspend suspends the process associated with KernelPort. 
Arguments 

KernelPort The kernel port of the process to be suspended. 

Returns 

Success Process suspended. 
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Resume 

function Resume 
( 

KernelPort : Port; 

) 

: GeneralReturn; 

Synopsis 

Resume resumes the process associated with KernelPort. 
Arguments 

KernelPort The kernel port of the process to be resumed. 

Returns 

Success Process resumed. 
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Examine 

function Examine 
( 

KemelPort : Port; 

RegOrStack : boolean; 

Index : integer; 
var Value : integer 
) 

: GeneralReturn; 

Synopsis 

Examine examines the microstate of the process associated with Kernel Port. If the process 
examined is not suspended, the values returned may not be accurate. 



Arguments 

KemelPort 

RegOrStack 

Index 
Value 

Returns 

Success 



The kernel port of the process to be examined. 

True if the microregister values are to be examined, false if the expression 
stack values are to be examined. 

The index of the register to be examined. 

A var parameter to return the desired value. 



Process state returned. 



MemFault 



Illegal address specified. 
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Deposit 

function Deposit 
( 

KemelPort ; Port; 
RegOrStack : boolean; 
Index : integer; 
Value : integer 

) 

: GeneralReturn; 

Synopsis 

Deposit changes the microstate of the process associated with KernelPort. If the process changed 
is not suspended, the values of the registers may not actually be changed. 

Arguments 

KernelPort 

RegOrStack 

Index 
Value 

Returns 

Success 

MemFault 



The kernel port of the process to be changed. 

True if the microregister values are to be changed, false if the expression 
stack values are to be changed. 

The index of the register to be changed. 

The new value of the register. 

Process state changed. 
Illegal address specified. 
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Softlnterrupt 

function Softlnterrupt 
( 

KernelPort : Port; 

NormOrEmerg : boolean; 
var EnOrDisable : boolean 
) 

: GeneralReturn; 

Synopsis 

Softlnterrupt enables or disables software interrupts for either normal or emergency messages. 
Arguments 

KernelPort The kernel port of the process to be affected. 

NormOrEmerg True if the Normal message interrupt is to be enabled/disabled, false if 
the Emergency message interrupt is to be enabled/disabled. 

EnOrDisAble True if enabled, false if disabled. Used to store previous value of 

enable/disable flag on return. 



Returns 

Success 



Action performed. Previous value of flag in EnOrDisAble. 
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GetlOSIeepID 

function GetlOSIeepID 
( 

var SleepID -.Long 
): GeneralReturn; 

Synopsis 

GetlOSIeepID returns the SleepID that would be used to suspend the calling process if it did an IPC 
receive. It is intended to be used by device driver processes that wish to use the kernel sleep trap and 
be awakened if a message is received. The following code could be used to put the current process 
to sleep for 1 jiffy (1 /60 of a second), or until a message arrives. 

begin 

loadexpr(SleepID); 

loadexpr(l); { NTicks ■ 1 means 1 Jiffy } 

loadexpr(O); { ProcID ■ 0 means this process } 

loadexpr(O); loadexpr(O); { FlagPtr-NH } 

nopaqefautl{2) ; 

inlinebyte(KOPS); 

1nl1nebyte(KS1eep) 



Arguments 

SleepID Returns the value of the current process IPC Sleep ID. 

Returns 

Success SleepID has been set. 
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4. Accent virtual memory primitives 

4.1 . Basic terms 

Accent provides two kinds of memory storage to processes: temporary virtual memory and more 
permanent kernel memory objects which may be directly backed by disk or other storage media. 

Each Accent process may have up to 2**32 bytes of paged virtual memory. Virtual memory may be 
written or read directly by a process using macro instructions defined by its micro-interpreter. The 
size of an Accent page is 51 2 bytes. 

Accent also provides as a service the notion of a segment which may created, destroyed, read or 
written by explicit message operations. Segments have unique 32-bit identifiers and may be backed 
by physical memory, disk, or by a process through a port identifier. Disk memory is divided by Accent 
into logical disk devices called partitions and a separate port is provided for access to each partition. 
Normally, the Accent file system process, Sesame, is responsible for building a file system using 
Accent disk segments, but the facility can also be provided to other processes if they are given 
access to the partition ports. 

The following type definitions are used by the various message interface routines: 
type 

Port ■ long; 

VirtualAddress ■ long; 

SplceSegKind ■ (Temporary, Permanent, Bad, SegPhysical, 

Imaginary, Shadow); 
SegID - long; 
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4.2. Virtual memory management routines 



CreateSegment 

function CreateSegment 
( 

SpecialPort ; Port; 
ImagSegPort ; Port; 
SegmentKInd : SpiceSegKind; 
Initialize : integer; 
MaximumSize : integer; 
Stable : boolean; 
var Segment : SegID 

) 

: GeneralReturn; 

Synopsis 

CreateSegment creates a segment which may be permanent, segphysical, temporary or imaginary. 

• Permanent segments are allocated on disk and survive rebooting, etc. Their disk storage 
is allocated on the partition with which SpecialPort is associated. 

• SegPhysical segments are contiguous regions of physical memory and are normally used 
for handling I/O devices, the bitmap display, etc. No disk storage is allocated for these 
segments. 

• Temporary segments are the same as permanent segments but are deallocated when ail 
processes having access to their pages are gone. Disk storage for these segment is 
allocated on the TemporarySegmentPartition as set by SetTempSegPartition. 

• Imaginary segments are segment ids without storage. They can be read into an address 
space or written, but instead of disk operations being performed to get or write the data, 
messages are sent to the ImagSegPort specified in the CreateSegment call asking to read 
and/or write the specified pages of the imaginary segment. The imaginary segment 
handling process can then respond directly to read/write requests and manage directly 
the virtual memory of another process. This is also a tool which can be used to support 
network paging. There is no disk storage for these segments. 



Arguments 

SpecialPort 



ImagSegPort 
SegmentKind 



The kernel port of the current process (in the case of temporary or 
imaginary segments) or a specially protected port (in the case of 
segphysical segments) or a port associated with a partition (in the case of 
permanent segments). Partition ports and the protected port are usually 
available only to system processes. 

A port for read and write operations on imaginary segments. May be a 
NULLPORT for other types of segments. 

One of physical, temporary, permanent, or imaginary. 



InitialSize 



The size of the new segment in pages. 
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MaximumSize The maximum size to which the new segment will be allowed to Qrow. 



Stable 



Whether or not the new segment is to be stable (not currently 
implemented). 



Segment 

Returns 

Success 



A var parameter for returning the id of the created segment. 



Segment created. 



BadRights 



The SpecialPort used does not have the right to create the kind of 
segment desired. 



OutOfDisk 



The partition specified does not have enough disk space to 
accommodate the segment. 
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TruncateSegment 



function TruncateSegment 
( 

SpecialPort : Port; 
Segment ; SegID; 
NewSize : integer 

) 

: GeneralReturn; 

Synopsis 

TruncateSegment truncates the segment specified by Segment. 



Arguments 

SpecialPort 

Segment 
NewSize 

Returns 

Success 

BadRights 
NotASegment 



A protected port available only to selected processes (for Permanent or 
Physical segments) or a kernel port (for Temporary or Imaginary 
segments). 

The segment id of the segment to be truncated. 
The new size of the segment in pages. 



Segment truncated. 

The SpecialPort used does not have the right to truncate the kind of 
segment desired. 

The segment does not exist. 
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DestroySegment 

function DestroySegment 
( 

Special Port : Port; 
Segment : SegID 

) 

: GeneralReturn; 

Synopsis 

DestroySegment destroys the segment specified by Segment. 



Arguments 

SpecialPort 

Segment 

Returns 

Success 

BadRights 



A protected port available only to selected processes (for Permanent or 
Physical segments) or a kernel port (for Temporary or Imaginary 
segments). 

The segment id of the segment to be destroyed. 



Segment destroyed. 

The SpecialPort used does not have the right to destroy the kind of 
segment desired. 



NotASegment The segment does not exist. 
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ReadSegment 

function ReadSegment 
( 

SpecialPort : Port; 

Segment : SegID; 

Offset : integer; 

NumPages : integer; 
var Data : pointer; 
var DataCount ; long 

) 

: GeneralReturn; 

Synopsis 

" ReadSegment reads the selected pages of Segment. The data read is pointed to by Data. 



Arguments 

SpecialPort 



A protected port available only to selected processes (for Permanent or 
Physical segments) or a kernel port (for Temporary or Imaginary 
segments). 



Segment 



The segment id of the segment to be read. 



Offset 



The page offset of the first page to be read (file pages start at zero). Can 
be set to -1 to returrrthe File Information Block. (For more information on 
the File Information Block, see "File System" in this manual.) 



NumPages The number of pages to be read. Specifying -1 returns the entire 

segment. 



Data 



On return, points to the data area into which the segment data has been 
read. 



DataCount 

Returns 

Success 



The number of bytes actually read. 



Segment data read. 



BadRights The SpecialPort used does not have the right to read the kind of segment 

desired. 



NotASegment The segment does not exist. 



MemFauit 



Illegal address specified. 
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WriteSegment 

function WriteSegment 
( 

SpecialPort : Port; 
Segment ; SegID; 
Offset : integer; 
Data : pointer; 
DataCount : long 

) 

: GeneralReturn; 

Synopsis 

WriteSegment overwrites the selected pages of Segment with the data pointed to by Data. 



Arguments 

SpecialPort 

Segment 
Offset 

Data 

DataCount 

Returns 

Success 

BadRights 

NotASegment 
PartitionFull 



A protected port available only to selected processes (for Permanent or 
Physical segments) or a kernel port (for Temporary or Imaginary 
segments). 

The segment id of the segment to be written. 

The page offset of the first page to be written (file pages start at zero). 
Specifying -1 allows you to write only FSData sections of -1 block. (See 
"File System" in this manual.) 

A pointer to the data to be written to the segment. 

The number of bytes to be written. 



Segment data written. 

The SpecialPort used does not have the right to write the kind of segment 
desired. 

The segment does not exist. 

The partition specified does not have enough disk space to 
accommodate the segment. 



MemFault 



OutOfDisk 



Illegal address specified. 

Writing block -1 will only change the FSData area of tho block. 
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InterceptSegmentCalls 

function InterceptSegmentCalls 
( 

ServPort : Port; 
var OldSysPorts : PtrAIIPortArray; 
var OldSysPorts.Cnt : Long; 
var SysPorts : PtrPortArray; 
var SysPorts Cnt ; Long 
): GeneralReturn; 

Synopsis 

This call is used by a process that wishes to intercept all calls to the segment system. It is intended 
to be used by trusted system processes only. 



Arguments 

ServPort 
OldSysPorts 



This is the port that is to be used to make the call. It is the Kernel port of 
the process making the call. 

This array will be sent to contain the current ports that are being used to 
make segment calls. All segment calls by other processes in the system 
will be received on this set of ports. 



OldSysPortsCnt This is the count of valid ports in OldSysPorts. 
SysPorts 



SysPortsCnt 



SysPorts will contain the new set of ports that the calling process can use 
to make segment system requests. 

This is the count of the number of valid ports that are in SysPorts. 



Returns 

Success 



This is the only possible return. 
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SetPagingSegment 



function SetPagingSegment 
( 

ServPort : Port; 
Segment : SegID 
): GeneralReturn; 

Synopsis 

This call is used to specify a segment that can be used as the disk backup for virtual memory. This 
segment is only used if the system cannot find a paging partition at system initialization time. 



Arguments 

ServPort 

Segment 

Returns 

Success 

BadSegment 



The port of the process that is currently handling the paging system. 

This is the segment ID of the segment that is to be used for virtual memory 
backing store. 



The call completed without error. 
SegID was not a valid segment. 
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AvailableVM 

function AvailableVM 
( 

KernelPort : Port; 
var NumBytes : long { out parameter } 

) 

: GeneralReturn; 

Synopsis 

AvailableVM returns the size in bytes of secondary storage remaining as backing store for virtual 
memory. 

Arguments 

KernelPort Kernel port of calling process. 

NumBytes Amount of remaining secondary storage available for virtual memory 

backing store. 

Returns 

Success 
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ValidateMemory 

function ValidateMemory 
( 

KernelPort : Port; 
var Address : Virtual Address; 
NumBytes : long; 
CreateMask : long 

) 

: GeneralReturn; 

Synopsis 

ValidateMemory marks a given part of a process address space as valid. References to data in this 
area will succeed and initial reads will return zero. 

WARNING 

Note that ValidateMemory will still return success, even if you have previously validated the same 
space. Using ValidateMemory to validate existing addresses may cause the content of those 
addresses to be overwritten. 



Arguments 

KernelPort 

Address 



NumBytes 



CreateMask 



Kernel port of process to be affected. 

Starting address. If this address is nil, the kernel will find an area 
NumBytes in size and whose starting address is consistent with 
CreateMask and return that value in address. 

Number of bytes to validate (rounded by the system to validate only full 
pages). 

A means of easiiy specifying a certain alignment for the memory to be 
validated. The kernel will begin validating memory at the first address 
greater than or equal to Address such that for every one bit in 
CreateMask, the corresponding bit in the address is either zero or one, 
and for every zero bit in CreateMask, the corresponding bit in the address 
is also zero. Specifying -1 will give you the most convenient alignment. 
Specifying -256 will give you page alignment. 



Returns 

Success 



Memory validated. 



MemFault 



Illegal address specified. 
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InvalidateMemory 



function InvalidateMemory 
( 

KernelPort : Port; 
Address : Virtual Address; 
NumBytes : long 

) 

: GeneralReturn; 

Synopsis 

InvalidateMemory marks a given part of a process address space as invalid. References to data in 
this area will fail. Any secondary storage being used to support this area will be released. 



Arguments 

KernelPort 

Address 
NumBytes 

Returns 

Success 



Kernel port of process to be affected. 
Starting address. 

Number of bytes to invalidate (rounded by the system to invalidate only 
full pages). 

Memory invalidated.* 



MemFault 



Illegal address specifed. 
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SetProtection 

function SetProtection 
( 

Kern el Port : Port; 
Address : VirtualAddress; 
NumBytes : long; 
Protection : integer 

) 

: GeneralReturn; 

Synopsis 

SetProtection changes the protection of valid pages in a process' address space. 

Arguments 

KernelPort Kernel port of process to be affected. 

Address Starting address. 

NumBytes Number of bytes to change protection of (rounded by the system to 

change protection of only full pages). 

Protection The new protection bits (i.e., Readonly, ReadWrite). 

Returns 

Success Memory protected. 

MemFault Illegal address specified. 
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Read P rocessMemo ry 



function ReadProcessMemory 
( 

KernelPort : Port; 

Address : Virtual Address; 

NumBytes : long; 
var Data : pointer; 
var DataCount : long 

) 

: GeneralReturn; 



ReadProcessMemory allows a process with access to another process' kernel port to read its virtual 
memory. 

Arguments 



Synopsis 



KernelPort 



Kernel port of process whose data is to be read. 



Address 



Starting address. 



NumBytes 



Number of bytes to read. 



Data 



Pointer to area into which data is to be read. 



DataCount 



Number of bytes actually read. 



Returns 



Success 



Memory read. 



MemFault 



Illegal address specified. 
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WriteProcessMemory 

function WriteProcessMemory 
( 

KernelPort : Port; 

Address : VirtualAddress; 

NumBytes : Long; 

Data : pointer; 
. DataCount : long; 
) 

: GeneralReturn; 

Synopsis 

WriteProcessMemory allows a process with access to another process' kernel port to write its virtual 
memory. 

Arguments 

KernelPort Kernel port of process whose memory is to be written. 

Address Starting address in process to be affected. 

NumBytes Number of bytes to read. 

Data Pointer to data to be. written. 

DataCount Number of bytes to write. 

Returns 

Success Memory written. 

MemFault Illegal address specified. 
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Touch 



function Touch 
( 

KernelPort : Port; 
Address : VirtualAddress; 

) 

: GeneralReturn; 



Touch determines if a given location Address is a valid address for the process specified by 
KernelPort. 

Arguments 



Synopsis 



KernelPort 



Kernel port of process whose memory is to be queried. 



Address 



Address to check. 



Returns 



Success 



Memory exits. 



Failure 



Memory is invalid. 
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5. Accent Disk Handling 



5.1 . Basic terms 

The following type definitions are used by the various disk handling routines: 



const 

MAXPARTCHARS -8; { maximum length for a partition name } 
MAXDPCHARS ■ 26; { maximum length for devtpart name } 
MAXPARTITIONS ■ 30; { maximum partitions on one device } 
MAXDEVICES "6; { maximum number of devices } 

type 

Port ■ long; 

PartString - str 1 ng [MAXPARTCHARS] ; 

DevPartString - string[MAXDPCHARS]; 

Parti tionType - ( Root, UnUsed ..Segment, PLX {,...} ); 

DiskAddr - long; 

SegID ■ long; 



Partlnfo ■ 



record 



PartHeadFree 


DiskAddr; 


PartTailFree 


DiskAddr; 


PartlnfoBlk 


DiskAddr; 


PartRootDir 


SegID; 


PartNumOps 


Integer; 


PartNumFree 


long; 


PartlnUse 


boolean; 


PartMountad 


boolean; 


PartDevice 


integer; 


PartStart 


DiskAddr; 


PartEnd 


DiskAddr; 


PartKind 


PartltionType; 


PartName 


PartString; 


PartExUse 


boolean; 


Unused 


long 



end; 



{entry 1n the PartTable} 
{pointer to Head of Free List} 
{pointer to tail of Free List} 
{pointer to PartlnfoBlock} 
{SegID of Root Directory} 
{how many operations done since 

last update of PartlnfoBlock} 
{HINT of how many free pages} 
{this entry in PartTable 1s valid} 
{this partition 1s mounted} 
{which disk this partition 1s in} 
{Disk Address of 1st page} 
{Disk Address of last page} 
{Root or Leaf} 
{name of this partition} 
{Opened exclusively} 
{Port 1s not returned} 



PartLlst ■ array[l.. MAXPARTITIONS] of Partlnfo; 
ptrPartList ■ +PartL1st; 
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5.2. Disk management routines 



GetDiskPartitions 

function GetDiskPartitions 
( 

ServPort -.Port; 

interface : Disklnterface; 

log unit : Interfacelnfo; 
var unitnum : Integer; 
var DevName : DevPartString; 
var PartL .- PtrPartList; 
var PartL Cnt ; Long 
) 

: GeneralReturn; 

Synopsis 

GetDiskPartitions will return information about the partition structure of a specific disk. This calf is 
used by the file system. No other processes have access to this call. 



Arguments 

ServPort 

Interface 
Log unit 
Unitnum 
DevName 
PartL 

PartLCnt 

Returns 

Success 

NotADev 



The port of the disk server. 
Specifies which disk interface is to be used. 
The drive number on which the disk is attached. 
The unit number as mounted. 

Set to be the name of the device that is at the unit interface. 

A pointer to a structure that contains a list of the partitions that are on the 
device indexed by Interface. 

This is the count of teh number of valid partitions in PartL. 

Operation Completed. 
No such device. 
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PartMount 

function PartMount 
( 

SpecialPort : Port; 

PartName : DevPartString; 

Exilse : boolean; 
var RootID : SegID; 
var PartKind : PartitionType; 
var PartPort : Port; 
var PartS ; DiskAddr; 
var PartE : DiskAddr 

) 

: Genera/Return; 

Synopsis 

PartMount makes the specified partition accessible through the port returned as PartPort. If Exilse 
is true only one port at a time is allowed to access the partition. If Exilse is false, multiple shared 
mounts are allowed. 



Arguments 

SpecialPort 

PartName 
Exilse 

RootID 
PartKind 

PartPort 
PartS 



A privileged port to the system kernel. Usually only system processes 
have access to this port. 

A string name for the partition to be mounted. Includes the device name. 

An option specifiying whether this process is willing to share access to 
the partition. 

The Segment ID of the root directory for this partition. 

The Partition type of the partition. This is used as a hint to the formatting 
of the partition. 

The port that .is associated with the partition. It is required to be the 
SpecialPort in all the segment access calls to permanent segments on this 
partitions. 

The virtual address of the start of the partition. 



PartE 



The virtual address for the end of the partition. 



Returns 

Success 



Partition mounted. 



NotADev 



Device part of the name is unrecognized. 
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NotAPart The partition does not exist. 

PartNot Avail Either some other process has the partition mounted for exclusive 

access, or Exilse is true and the partition is already mounted. 
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PartDismount 

function PartDismount 
( 

PartPort : Port; 

) 

: GeneralReturn) 

Synopsis 

PartDismount makes the specified partition inaccessible on this partition port. 
Arguments 

PartPort A port associated with a partition. Only system processes have access to 

partition ports. 

Returns 

Success Partition dismounted. 

PartStillMounted This port can no longer access the partition, but some other ports can. 
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DirectIO 

function DirectIO 
( 

ServPort : Port; 
var CmdBlk : DirectIO Args; 
var DataHdr : Header; 
var Data : DiskBuffer 
): GeneralReturn; 

Synopsis 

This call is used to perform disk I/O while by-passing the paging mechanism. It should be used with 
care so that it does not interfere with the pager's view of the disk. 



Arguments 

ServPort 



This must be one of the kernel's special ports. 



CmdBik 



A record describing the command to be executed is sent to the pager. It 
returns the lOStatus on completion. 



DataHdr 



The 16 bit header to be written is passed in. For a head the header is 
returned. 



Data 

Returns 

Success 



A single block can be read/written. 



It worked. 



Failure 



It did not. lOStatus in CmdBlk has the error code. 



69 



6. Accent Display Facilities 

The Accent kernel provides a number of facilities that are used to quickly update uncovered 
portions of the display. 

6.1. Overview 

These operations are executed by the process that is making the call. In general, a client process 
makes a call to the window manager to update some portion of the display. The client address space 
window manager code will trap to the kernel and execute the appropriate function to perform the 
requested operation. 

If the portion of the display that was to be updated is on the screen and uncovered, the kernel will 
perform the operations. If the kernel cannot perform the operation for some reason, it will return a 
failure indication. At this point, the client interface code will make an IPC request of the window 
manager process to do the display operation. 

6.2. Display Management Routines 

The functions described in this section can be found in the module AccCall in the file AccCall.Pas, 
and in the module Acclnt in the file AccentUser.Pas. 
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CreateRectangle 



function CreateRectangle 
( 



ServPort 


: port; 


RecPort 


: port; 


Base Add r 


: VirtualAddress; 


ScanWidth 


: Integer; 


BaseX 


: Integer; 


BaseY 


: Integer; 


MaxX 


: Integer; 


MaxY 


: Integer; 


IsFont 


• Boolean 



): GeneralReturn; 

Synopsis 

CreateRectangle allocates a rectangle (that can be used for screen operations) and associates it 
with a given port. The rectangle is Enabled to receive input. 



Arguments 

ServPort 
RecPort 



Base Ad dr 
ScanWidth 
BaseX, BaseY 
MaxX, MaxY 
IsFont 



Returns 

Success 

Failure 



Service port (should be the permanent segment port). 

Port to which the rectangle is attached. If the port already has a rectangle 
that rectangle is replaced. 

Physical address of memory containing the rectangle. 
Words per scan line for memory containing the rectangle. 
Upper left corner of the rectangle relative to BaseAddress. 
Lower-right corner of the rectangle. 

This rectangle is really a font. The BaseAddress points to the.bitmap area 
of the font; the font header procedes it. RectDrawByte will only draw 
characters from a source rectangle that is a font. 

Operation completed. 

Port was not the Permanent Segment Port. 



BusyRectangle RectPort has messages outstanding. 



71 



DestroyRectangle 

function DestroyRectangle 
( 

ServPort : port; 
RecPort ; port 
): GeneralReturn; 

Synopsis 

Deallocate a rectangle record for the specified port. 
Arguments 

ServPort Service port (should be the permanent segment port). 

RectPort Port from which the rectangle is to be detached. 

Returns 

Success Operation completed. 

Failure Port is not the permanent segment port, or the specified port does not 

have a rectangle. 
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EnableRectangles 

function EnableRectangles 
( 

ServPort : port; 
RectList : PtrPortArray; 
RectListjCnt : long; 
Enable ; Boolean 
h GeneralReturn; 

Synopsis 

Enables or disables an entire list of rectangles. An enabled rectangle can receive input from the 
keyboard. This call will not enable the rectangles if any rectangle has messages waiting (to ensure 
that all requests are processed in the proper order). 



Arguments 

ServPort 

RectList 
P,QCtList Cnt 



Service port (should be the permanent segment port). 

Pointer to an array of ports whose rectangles are to be enabled or 
disabled. 

Number of ports in the array whose rectangles are to be enabled or 
disabled. 



Enable 



Set to True to enable; False to disable. 



Returns 

Success 

Failure 



Rectangles were enabled or disabled. 

Port was not the permanent segment port, or any of the ports does not 
corresspond to the rectangles. 



BusyRectangle Messages were waiting on one of the ports. 
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SetKernelWindow 

function SetKernelWindow 
( 

ServPort : port; 
LeftX : Integer; 
TopY : Integer; 
Width : Integer; 
Height : Integer; 
Inverted : Boolean 
): GeneralReturn; 

Synopsis 

Sets up a window for the kernel typescript. 

Arguments 

ServPort Service port (should be the permanent segment port). 

LeftX, TopY Upper left corner of the kernel window in screen coordinates. 

Width, Height The size of the window. 

Inverted If TRUE, the kernel typescript has white letters on a black background. If 

FALSE, it has black letters on a white background. 
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RectRasterOp 

function RectRasterOp 
( 

DstRectangle : port; 
Action : l/iteger; 
DstX : Integer; 

DstY : Integer; 

Width : Integer; 
Height . : Integer; 
SrcRectangle : port; 
SrcX -.Integer; 
SrcY : Integer 

): GeneralReturn; 

Synopsis 

Kernel protected RasterOp. 

Arguments 

DstRectangle ' The port for the the destination rectangle. 

Action RasterOp function. 

DstX, DstY, Width, Height 

The area within the destination rectangle for RasterOp destination. 
Relative to upper left corner of destination rectangle. 

The port for the source rectangle. 

The area within the source rectangle for RasterOp source. Relative to 
upper left corner of source rectangle. 



SrcRectangle 
SrcX, SrcY 



Returns 

Success Operation completed. 

OutOfRectangleBounds 

Source area is not completely inside source rectangle. 

CoveredRectangle Source or destination covered. Must call window manager to perform 
operation. 

BusyRectangle Messages are queued up for the viewport. Must call window manager to 
keep queued operations synchronized. 



BadRectangle 



Port is not a rectangle. 
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RectDrawLine 

function RectDrawLine 
( 

DstRectangle : port; 
Kind : Integer; 
X1,Y1,X2,Y2 : Integer 
h GeneralReturn; 

Synopsis 

Kernel protected Line Draw routine. 

Arguments 

DstRectangle Port for destination rectangle. 

Kind Kind of drawing operation: 

0 Erase line 

1 Draw line 

2 Invert line 
X1,Y1 One end point of the line. 

X2, Y2 The other end of the line. 

Returns 

Success Line was drawn. 

OuiOfRectangleBounds 

Source area is not completely inside source rectangle. 

CoveredRectangle The source or destination is covered. Must call window manager to 
perform operation. 

BusyRectangle Messages are queued up for the viewport. Must call window manager to 
keep queued operations synchronized. 



BadRectangle Port is not a rectangle. 



76 



RectPutString 

function RectPutString 
( 

DstRectangie : port; 

FontRectangle : port; 

Action : Integer; 
var FirstX : Integer; 
var FirstY : integer; 

StrPtr : Pointer; 

FirstChar : integer; 
var MaxChar : Integer 
): GeneralReturn; 

Synopsis 

Kernel protected String Draw routine. 



Arguments 

DstRectangie 

FontRectangle 
Action 
FirstX, FirstY 

StrPtr 

FirstChar 

MaxChar 

Returns 

Success 



The port for the destination rectangle. 

The port for the Font. If NullPort, it uses the system font. 

RasterOp Function i or u rawing characters. 

Drawing position for the origin of the first character. Returns the position 
of the origin of the next character to draw. 

Pointer to a packed array of characters containing the string to draw. 

Position of the first character in the string to draw (from 0). 

Position of the last character to draw. Returns the number of the last 
character actually drawn. 

String was drawn. 



OutOfRectangleBounds 

Source area is not completely inside source rectangle. 

CoveredRectangie Source or destination covered. Must call the window manager to perform 
the operation. 

BadRectangle Port is not a rectangle. 

BusyRectangle Messages are queued for the viewport. Must call the window manager to 
keep queued operation synchronized. 
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NotAFont FqntRectangle was not a font. 
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RectColor 



function RectColor 
( 

Rectangle : port; 
Action : Integer; 
X : Integer; 
Y : Integer; 
Width : Integer; 
Height ; Integer 
): GeneralReturn; 



Synopsis 

Operates on one rectangle to set, clear, or invert all its bits. If part of the area to be colored is 
outside the rectangle, it is ignored (RectColor does NOT return OutOfRectangleBounds). 

Arguments 



Rectangle 



Port for destination rectangle. 



Action 



Function to use, as follows: 



Red White 



set all bits to 0 



RectBlack 



set aii bits to 1 



Recti nvert 



invert all bits 



X,Y 



Upper left corner of destination (relative to Rectangle's boundaries). 



Width, Height 



Width and height of destination. 



Returns 



Success 



Operation performed. May be clipped to DstRect's boundaries. 



BadRectangle 

CoveredRectangle 

BusyRectangle 



DstRect is not a rectangle. 
DstRect is not enabled (covered). 
DstRect has messages queued. 
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RectScroll 

function RectScroll 
( 

Rectangle : port; 
X : Integer; 
Y : Integer; 
Width : Integer; 
Height : Integer; 
Xamt : Integer; 
Yamt : Integer 
): GeneralReturn; 

Synopsis 

Scrolls a portion of a viewport up, down, left, or right and erases the part that remains. 

Arguments 

Rectangle The port for the destination rectangle. 

X, Y Upper left corner of destination (relative to Rectangle's boundaries). 

Width, Height Width and height of destination. 

SrcX Number of bits to move the area horizontally; negative numbers to move 

to the left, positive n ambers to move to the right. 

SrcY Number of bits to move the area vertically; negative numbers to move up, 

positive numbers to move down. 

Returns 

Success Operation performed. May be clipped to Rectangle's boundaries. 

BadRectangle Rectangle is not a rectangle. 
CoveredRectangle Rectangle is not enabled (covered). 
BusyRectangle Rectangle has messages queued. 



OutOfRcetahgleBounds 

Area to be moved (starting position) is partially outside Rectangle. 
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GetRectangleParms 

function GetRectangleParms 
( 

ServPort : port; 

RectPort : port; 
■ var BaseAddr : VirtualAddress; 
var Scan Width : Integer; 
var BaseX ; Integer; 
var BaseY : Integer; 
var MaxX ; Integer; 
var MaxY ; Integer; 
var IsFont : Boolean 
h GeneralReturn; 



Synopsis 

Returns the rectangle parameters for a specified port. 



Arguments 

ServPort 

RectPort 
BaseAddr 
Scan Width 
BaseX, BaseY 
MaxX, MaxY 



Service port(should be the permanent segment port). 
Port for which the rectangle is to be returned. 

Returns physical address of memory containing the specified rectangle. 
Returns words per scan line for memory containing rectangle. 
Returns upper left corner of rectangle, relative to BaseAddr. 
Returns lower right corner of rectangle. 



IsFont 



Returns "This rectangle is really a font". The BaseAddr points to the 
bitmap area of the font; the font header precedes it. RectDrawByte will 
only draw characters from a source rectangle that is a font. 



Returns 

Success 



Parameters are returned. 



Failure 



The ServPort was not the permanent segment port. 



BadRectangle RecPort does not have a rectangle. 
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7. MatchMaker Interface Specification for Accent 

The following is the current MatchMaker specification for Accent. Kernel primitive functions such 
as Send and Receive are not message operations and are not specified using MatchMaker. 

subsystem Acclnt 100; 

type Integer ■ (TypelntlO, 16); 
type Long - (Typelnt32, 32); 
type port ■ (TypePt, 32); 

type PtrPortArray ■ tarray [] of (TypePt, 32); 

type PStatus ■ (TypePStat, 240); 

type Boolean - (TypeBoolean, 16); 

type PriorlO - (Typelntl6, 16); 

type SpiceSegKind - (Typelntl6, 16); 

type SegID - (Typelnt32, 32); 

type Pointer - tarray [] of (Typelnt8, 8); 

type VirtualAddress - (Typelnt32, 32); 

type DiskAddr - (Typelnt32, 32); 

type DevPartString - array[26] of (TypeChar ,8) ; {MAXDPCHARS+1} 

type PartitionType - (Typelntl6, 16); 

type PtrAllPortArray ■ tarray [] of (TypePtAll, 32); 

type Disklnterf ace - (Typelntl6, 16); 

type Interfacelnfo ■ Array[3] of (Typelntl6, 16); 

type String ■ (typeString, 648); 

slmports VMTypes from VMTypes; 
simports Acclnt from Acclnt; 
s imports VMAlloc from VMAIIoc; 
simports AccVersion from AccVersion? 

routine SetBackLog( 

: Port; 

LocalPort : Port; 

BackLog : Integer); 

routine AllocatePort( 

: Port; 

out LocalPort : Port-(TypePTAll ,32); 

BackLog : Integer); 

routine DeallocatePort( 

: Port; 

LocalPort : Port"(TypePT,32,Dealloc) ; 

Reason : Long); 

routine IndexInterpose( 

: Port; 

MyPort : Port-(TypePTRece1ve,32); 

Hislndex : Long; 

out HisPort : Port»(TypePTReceive,32)) ; 

routine PortInterpose( 

: Port; 

MyPort : Port»(TypePTRece1ve,32); 

HisPort : Port; 

out MyNewPort : Port-(TypePTReceive,32)) ; 

routine Fork( 

: Port; 

1nout HisKernelPort: Port; 

inout HisDataPort : Port; 

inout Ports : PtrPortArray); 



routine Status( 

out NStats 
routine Term1nate( 
Reason 



Port; 
PStatus); 



Port; 
Long); 



routine SetPriority( 
:Port; 

Priority: PriorlD); 



routine SetL1mit( 

ReplyPort 
Limit 

routine Suspend( 

routine Resume ( 

routine Exam1ne( 

RegOrStack 
Index 
out Value 

routine Depos1t( 

RegOrStack 
Index 

Value 

routine SoftInterrupt( 

NormOrEmerg 
inout EnOrDisable 

routine CreateSegment( 

ImagScgPort 
SegmentKind 
InitialSize 
MaxSize 
Stable 
out Segment 

routine TruncateSegment( 

Segment 
NewSize 

routine DestroySegment( 

Segment 

routine ReadSegment( 

Segment 
Offset 
NumPages 
out Data 

routine Wr1teSegment( 

Segment 



Port; 
Port; 
Long); 

Port); 

Port); 



Port; 
Boolean; 
Integer; 
Integer);. 



Port; 

Boolean; 

Integer; 

Integer) ; 



Port; 

Boolean; 

Boolean); 



Port; 
Port; 

SpiceSegKInd; 

Integer; 

Integer; 

Boolean; 

SegID); 



Port; 

Segld; 

Integer); 



Port; 
Segld); 



Port; 

Segld; 

Integer; 

Integer; 

pointer); 



: Port; 
: Segld; 
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Offset : 

Data : 

routine Val 1dateMemory( 

1nout Address : 

NumBytes : 

CreateMask : 

routine Inval1dateMemcry( 

Address 

NumBytes : 

routine SetProtect1on( 

Address : 

NumBytes : 

Protection : 



Integer; 
pointer); 



Port; 

Virtual Address; 

Long; 

Long); 



Port; 

VirtualAddress; 
Long); 



Port; 

VirtualAddress; 

Long; 

Integer); 



routine ReadProcessMemory( 

: Port; 

Address : VirtualAddress; 

NumBytes : Long; 
out Data : pointer); 

routine Wr1teProcessMemory( 

: Port; . 
Address : VirtualAddress; 

NumBytes : Long; 
Data " : pointer); 



routine GetD1skPart1t1ons( 



interface 
log_un1t 
out unitnum 
out DevName 
out PartL 

routine PartMount( 

PartName 
ExUse 
out Rootld 
out PartKInd 
out PartPort 
out Parts 
out PartE 

routine PartD1sMount( 



P.ort; 

Dlsklnterface; 
Interfacelnfo; 
Integer; 
DevPartStrlng; 

Polnter-tarray [] of (TypeIHT32,32)) ; 



Port; 

DevPartStrlng; 

Boolean; 

SegID; 

PartltionType; 
Port; 
DIskAddr; 
DIskAddr); 



Port); 



routine SetTempSegPart1t1on( 

: Port: 

PartName 



routine SetDebugPort( 
DebugPort 

routine Touch( 

Address 



DevPartStrlng) ; 



Port; 
Port); 



Port; 

VirtualAddress); 



routine GetPortIndexStatus( 

: Port; 



Portlndex 
out Backlog 
out NWaitingMsgs 
out EWaitingMsgs 
out PortRight 
out PortType 

routine GetPortStatus( 

PortRight 
out Backlog 
out NWaitingMsgs 
out EWaitingMsgs 
out Portlndex 
out PortType 

routine ExtractAllR1ghts( 



Long; 

integer; 

Integer; 

integer; 

Port; 

integer); 



Port; 

Port; 

integer; 

integer; 

Integer; 

Long; 

integer); 



Portlndex 
out PortRight 
out PortType 

routine XnsertA11Rights( 



: Port; 
: Long; 
: Port; " 
: integer); 



Portlndex 
PortRight 
PortType 



: Port; 
: Long; 
: Port; 
: integer); 



routine CreateProcess( 

: Port; 

out HisKernelPort: Port; 

uu I* ii i Sua barui it » rui 

routine InterceptSegmentCa11s( 

: Port; 
out OldSysPorts : 
out SysPorts : 



ptrAllPor'tArray; 
ptrPortArray); 



routine D1rectI0( 

inout CmdBlk : 
inout DataHdr : 
inout Data : 

routine SetPagingSegment( 

Segment : 

routine CreateRectangle( 

RectPort 
BaseAddr 
ScanWidth 
BaseX 
BaseY 
MaxX 
MaxY 
IsFont 

routine DestroyRectang1e( 
RectPort : 
routine Avail ableVM( 

out NuraBytes : 



Port; 
Polnte'r; 
Pointer; 
Pointer); 
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I. Summary of Calls 

The following is a summary of the Pascal calls to Accent. The page on which the operation is fully 
described appears within square brackets. 

[12] function Send ( var MsgHdr : Msg; MaxWait : long; Option : SendOption ) : GeneralReturn; 
[1 4] function SetPortsWaiting ( var Ports : PortBitArray ) : GeneralReturn; 

[15] function Receive ( var MsgHdr : Msg; { inout parameter } MaxWait : long; PortOpt : PortOption; 
Option : ReceiveOption ) : GeneralReturn; 

[17] function EReceive ( var xxmsg :Msg; MaxWait :long; PortOpt :PortOption; Option 
:ReceiveOption ) : GeneralReturn; 

[19] function PortsWith Messages ( MsgType : long; var Ports : PortBitArray ) : GeneralReturn; 

[20] function LockPorts ( LockOrUnlock : boolean; Ports : PtrLPortArray; PortsCount : long ) : 
GeneralReturn; 

[21] function MessagesWaiting ( MsgType : long; var Ports : PtrLPortArray; var PortsCount : long { 
inout parameter } ) : GeneralReturn; 

[22] function MoveWords ( SrcAddr : Virtual Address; var DstAddr : VirtualAddress; { inout } 
NumWords : long; Delete : boolean; Create : boolean; Mask : long; DontShare : 
boolean ) : GeneralReturn; 

[23] function SoftEnable ( Norrr.OrErnerg : boolean; EnOrDis : boolean ): GeneralReturn; 

[24] function AllocatePort (KernelPort : Port; var LocalPort : Port; { out } Backlog : BacklogValue ) : 
GeneralReturn;. 

[25] function SetBacklog ( KernelPort : Port; LocalPort : Port; Backlog : BacklogValue ) : 
GeneralReturn; 

[26] function DeallocatePort ( KernelPort : Port; LocalPort : Port; Reason : long ) : GeneralReturn; 

[27] function Indexlnterpose ( ServPort : Port; MyPort : Port; Hislndex : long; var HisPort : Port ) : 
GeneralReturn; 

[28] function Portlnterpose ( ServPort : Port; MyPort : Port; HisPort : Port; var MyNewPort : Port ) : 
GeneralReturn; 

[29] function GetPortlndexStatus ( ServPort : Port; Portlndex : Long; var BackLog : Integer; var 
NWaitingMsgs : Integer; var EWaitingMsgs : Integer; var PortRight : Port; var 
PortType : Integer ) : GeneralReturn; 

[30] function GetPort'Status ( ServPort : Port; PortRight : Port; var Backlog : Integer; var 
NWaitingMsgs : Integer; var EWaitingMsgs : Integer; var Portlndex : Long; var 
PortType : Integer ) : GeneralReturn; 

[31] function ExtractAIIRights ( ServPort : Port; Portlndex : Long; var PortRight : Port; var PortType : 
Integer ) : GeneralReturn; 

[32] function InsertAIIRights ( ServPort : Port; Portlndex : Long; var PortRight : Port; var PortType : 
Integer ) : GeneralReturn; 

[34] function Fork ( KernelPort : Port; var HisKernelPort : Port; { out parameter } var HisDataPort : 
Port; { out parameter } Ports : PtrPortArray; PortsCount : long ) : GeneralReturn; 
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[35] function CreateProcess ( KernelPort : Port; var HisKernelPort : Port; { out parameter } var 
HisDataPort : Port { out parameter } ) : GeneralRetum; 

function Terminate ( KernelPort : Port; Reason : long; ) : GeneralRetum; 

function SetDebugPort ( KernelPort : Port; DebugPort : Port ) : GeneralRetum; 

function Status ( KernelPort : Port; var Status : PStatus ) : GeneralRetum; 

function SetPriority ( KernelPort : Port; Priority : PriorlD ) : GeneralRetum; 

function SetLimit ( KernelPort : Port; ReplyPort : Port; Limit : long ) : GeneralRetum; 

function Suspend ( KernelPort : Port; ) : GeneralRetum; 

function Resume ( KernelPort : Port; ) : GeneralRetum; 

function Examine ( KernelPort : Port; RegOrStack : boolean; Index : integer; var Value : integer ) 
: GeneralRetum; 

function Deposit ( KernelPort : Port; RegOrStack : boolean; Index : integer; Value : integer ) : 
GeneralRetum; 

function Softlnterrupt ( KernelPort : Port; NormOrEmerg : boolean; var EnOrDisable : boolean ) : 
GeneralRetum; 

function GetlOSIeepID ( var SleepID :Long ): GeneralRetum; 

function CreateSegment ( SpecialPort : Port; ImagSegPort : Port; SegmentKind : SpiceSegKind; 

InitialSize : integer; MaximumSize : integer; Stable : boolean; var Segment : SegID 
) : GeneralRetum; 

function TruncateSegment ( SpecialPort : Port; Segment : SegID; NewSize : integer ) : 
GeneralRetum; 

function DestroySegment ( SpecialPort : Port; Segment : SegID ) : GeneralRetum; 

function ReadSegment ( SpecialPort : Port; Segment : SegID; Offset : integer; NumPages : 
integer; var Data : pointer; var DataCount : long ) : GeneralRetum; 

function WriteSegment ( SpecialPort : Port; Segment : SegID; Offset : integer; Data : pointer; 
DataCount .: long ) : GeneralRetum; 

function InterceptSegmentCalls ( ServPort : Port; var OldSysPorts : PtrAIIPortArray; var 
OldSysPorts.Cnt : Long; var SysPorts : PtrPortArray; var SysPorts_.Cnt : Long ); 
GeneralRetum; 

function SetPagingSegment ( ServPort : Port; Segment : SegID ): GeneralRetum; 

function AvailableVM ( KernelPort : Port; var NumBytes : long { out parameter } ) : 
GeneralRetum; 

function ValidateMemory ( KernelPort : Port; var Address : VirtualAddress; NumBytes : long; 
CreateMask : long ) : GeneralRetum; 

function InvalidateMemory ( KernelPort : Port; Address : VirtualAddress; NumBytes : long ) : 
GeneralRetum; 

function SetProtection ( KernelPort : Port; - Address : VirtualAddress; NumBytes : long; 
Protection : integer ) : GeneralRetum; 



88 



[60] function ReadProcessMemory ( KernelPort : Port; Address : VirtualAddress; NumBytes : long; 
var Data : pointer; var DataCount : long ) : GeneralReturn; 

[61] function WriteProcessMemory ( KernelPort : Port; Address : VirtualAddress; NumBytes : Long; 
Data : pointer; DataCount : long; ) : GeneralReturn; 

[62] function Touch ( KernelPort : Port; Address : VirtualAddress; ) : GeneralReturn; 

[64] function GetDiskPartitions ( ServPort : Port; interface : Disklnterface; log.unit : Interfacelnfo; var 
unitnum : Integer; var DevName : DevPartString; var PartL : PtrPartList; var 
PartL.Cnt : Long ) : GeneralReturn; 

[65] function PartMount ( SpecialPort : Port; PartName : DevPartString; ExUse : boolean; var RootID : 
SegID; var PartKind : PartitionType; var PartPort : Port; var Parts : DiskAddr; var 
PartEj DiskAddr ) : GeneralReturn; 

[67] function PartDismount ( PartPort : Port; ) : GeneralReturn; 

[68] function DirectIO ( ServPort : Port; var CmdBlk : DirectlOArgs; var DataHdr : Header; var Data : 
DiskBuffer ): GeneralReturn; 

[70] function CreateRectangle ( ServPort : port; RecPort : port; BaseAddr : VirtualAddress; 

ScanWidth : Integer; BaseX : Integer; BaseY : Integer; MaxX : integer; MaxY : 
Integer; IsFont : Boolean ): GeneralReturn; 

[71] function DestroyRectangle ( ServPort : port; RecPort : port ): GeneralReturn; 

[72] function EnableRectangles ( ServPort : port; RectList : PtrPortArray; RectList.Cnt : long; Enable : 
Boolean ): GeneralReturn; 

[73] function SetKernelWindow ( ServPort : port; LeftX : Integer; TopY : Integer; Width : Integer; 
Height : Integer; Inverted : Boolean ): GeneralReturn; 

[74] function RectRasterOp ( DstRectangle : port; Action : Integer; DstX : Integer; DstY : Integer; 

Width : Integer; Height : Integer; SrcRectangle : port; SrcX : Integer; SrcY : Integer 
): GeneralReturn; 

[75] function RectDrawLine ( DstRectangle : port; Kind : Integer; X1,Y1,X2,Y2 : Integer ): 
GeneralReturn; 

[76] function RectPutString ( DstRectangle : port; FontRectangle : port; Action : Integer; var FirstX : 
Integer; var FirstY : Integer; StrPtr : Pointer; FirstChar : Integer; var MaxChar : 
Integer ): GeneralReturn; 

[78] function RectColor ( Rectangle" : port; Action : Integer; X : Integer; Y : Integer; Width : Integer; 
Height : Integer ): GeneralReturn; 

[79] function RectScroll ( Rectangle : port; X : Integer; Y : Integer; Width : Integer; Height : Integer; 
Xamt : Integer; Yamt : Integer ): GeneralReturn; 

[80] function GetRectangleParms ( ServPort : port; RectPort : port; var BaseAddr : VirtualAddress; 

var ScanWidth : Integer; var BaseX : Integer; var BaseY : Integer; var MaxX : 
Integer; var MaxY : Integer; var IsFont : Boolean ): GeneralReturn; 



